perm filename TRYC.F4[SAB,LCS]1 blob sn#353920 filedate 1978-05-10 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C	PROGRAM TRYC
C00003 ENDMK
CāŠ—;
C	PROGRAM TRYC
	COMMON  IBUF(5000)
	COMMON /FAC/JFAC,KFAC
	TYPE 10
	ACCEPT 20,JFAC,KFAC
10	FORMAT(' TYPE X FACTOR AND Y FACTOR   '$)
20	FORMAT(2I)
	CALL PLOTS(IBUF,5000,1)
	CALL PLOT(15.,14.75,-3)
	R=10.
  	CX=1.
  	CY=2.
  	CALL CIRCL2(R,CX,CY)
CC	CALL CIRCLE(R)
	TYPE 30,R,CX,CY
30	FORMAT(3F)
	CALL PLOT(0.,-30.,-3)
	CALL PLOT(0.,0.,999)
	STOP 
	END